home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 11, No. 09 (1990-09)(MindCraft Publishing)(Side A).zip / Nibble Volume 11, No. 09 (1990-09)(MindCraft Publishing)(Side A).po / USR.DEMO1.bas < prev    next >
BASIC Source File  |  1996-12-24  |  648b  |  17 lines
  1. 10  REM   ******************************
  2. 20  REM   * USR.DEMO                   *
  3. 30  REM   * BY MARK CRAVEN             *
  4. 40  REM   * COPYRIGHT(C) 1990          *
  5. 50  REM   * MINDCRAFT PUBL. CORP.      *
  6. 60  REM   * CONCORD, MA 01742          *
  7. 70  REM   ******************************
  8. 80  PRINT  CHR$(4);"BLOAD USR1"
  9. 90  POKE 10,76: POKE 11,0: POKE 12,3
  10. 100  HOME : VTAB 10
  11. 110  INPUT "ENTER A NUMBER 1-256 ->";A
  12. 120  IF A <1  OR A >256  THEN 100
  13. 130 B =  USR(A): REM  EXECUTE USR()
  14. 140  PRINT : PRINT B
  15. 150  PRINT : PRINT "PRESS ANY KEY; ESC TO QUIT"
  16. 160  WAIT  -16384,128:J =  PEEK( -16384): POKE  -16368,0: IF J = 155  THEN  END 
  17. 170  GOTO 100